40000 REM*******GENERATE VARIABLES**********
40010 BA$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
40020 A$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":FORI=1TO6:BD$=BD$+A$:NEXT:RETURN
40030 REM*********PRINT BOX*************
40040 OC=PEEK(646):POKE646,BC:RV$="":IFRVTHENRV$=""
40050 POKE211,BX:POKE214,BY:SYS58732:PRINTRV$"[176]"LEFT$(BA$,EX-BX-2)"[174][157]";
40060 PRINTRV$LEFT$(BD$,BD*3):PRINTRV$SPC(BX)"[145][173]"LEFT$(BA$,EX-BX-2)"[189]"
40070 POKE211,BX:POKE214,BY+1:SYS58732:PRINTRV$LEFT$(BD$,BD*3)"":POKE646,OC
40080 RV=0:RETURN
40090 REM********MAKE BOX GROW**********
40100 BX=BX-1:BY=BY-1:EX=EX+1:BD=BD+2:RETURN
40110 REM********MAKE BOX SHRINK********
40120 BX=BX+1:BY=BY+1:EX=EX-1:BD=BD-2:RETURN